home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / dev / gui / DesignerV1_53.lha / Designer / Developer / Developer.lha / C / DICE / auto.a
Text File  |  1994-10-10  |  619b  |  38 lines
  1.  
  2.             ;   Part of PRODUCER.LIB when linking programs that
  3.             ;   use PRODUCER.LIBRARY, provides an auto-open
  4.             ;   capability to PRODUCER.LIBRARY
  5.  
  6.             xdef    _ProducerBase
  7.             xref    __AutoFail0
  8.  
  9. _LVOOpenLibrary     equ    -552
  10. _LVOCloseLibrary    equ    -414
  11.  
  12.             section autoinit0,code
  13.  
  14.             moveq.l #0,D0
  15.             lea    dtaname(pc),A1
  16.             jsr    _LVOOpenLibrary(A6)
  17.             move.l    D0,_ProducerBase(A4)
  18.             beq    __AutoFail0
  19.             bra    i10
  20. dtaname         dc.b    'producer.library',0
  21.             ds.w    0
  22. i10
  23.  
  24.             section autoexit0,code
  25.  
  26.             move.l    _ProducerBase(A4),D0
  27.             beq    l10
  28.             move.l    D0,A1
  29.             jsr    _LVOCloseLibrary(A6)
  30. l10
  31.  
  32.             section libbss,bss
  33.  
  34. _ProducerBase        ds.l    1
  35.  
  36.             END
  37.  
  38.